      SUBROUTINE INLO(XI,YI,XF,YF,GJ,HJ,BJ,alfa)
C
C     Calculo dos valores dos elementos da diagonal de G e H.
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      PARAMETER (PI= 3.1415926535897932385D0)


      AXs2= 0.5d0*(XF-XI)
      AYs2= 0.5d0*(YF-YI)
      XLs2= DSQRT( AXs2*AXs2 + AYs2*AYs2 )
      GJ= 2.0d0 * XLs2 * (1.d0 - DLOG(XLs2) + alfa  )
      HJ= PI
      BJ= 0.0

      RETURN
      END